#!/usr/bin/perl

use strict;
use warnings;

our $cmd;
our $err=0;
$cmd = `/opt/hsc/firewall/bin/hscprocfw &> /tmp/lic.log`;

#print $cmd;
open(FILE,"/tmp/lic.log");
#if (<FILE> =~ /ERRO: Arquivo de licença invalido/) {
while (<FILE>) {
	print $_;
	if (/ERRO: Arquivo de licença invalido/) {
		$err++;
	}
}
if ($err > 0) {
	print "Critical - Licença inválida\n";
	exit(2);
} else{
	print "Ok - Licença válida\n";
	exit(0);
}
